home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib12.dsk / IMMEDIATE MACROS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  352b  |  4 lines
  1. 1  TEXT : HOME : LIST : END : REM  **DISPLAY MENU
  2. 2  POKE  -16300,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0: POKE 230,32: END : REM  **SWITCH TO PAGE ONE HGR
  3. 3  POKE  -16299,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0: POKE 230,64: END : REM   **SWITCH TO PAGE TWO HGR
  4. 4  FOR N = 1 TO 100:A =  PEEK( -16336): NEXT : END : REM  **MAKE BUZZ